home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / zmdm_src.arc / MANX.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-06-26  |  1.7 KB  |  74 lines
  1. ;
  2. ;  Make hi rez screen bios handle 50 lines of 8x8 characters
  3. ;
  4. ;  Adapted to Manx C use from origional PD asm posting
  5. ;  from atari corp.
  6. ;
  7. ;         Jwahar Bammi
  8. ;             usenet: cwruecmp!bammi@decvax.UUCP
  9. ;            csnet:  bammi@cwru.edu
  10. ;            arpa:   bammi@cwru.edu
  11. ;             CompuServe: 71515,155
  12. ; 
  13. ;
  14.     cseg
  15.  
  16.     public _hi50
  17.  
  18. _hi50:                  ; switch to 50 line mode
  19.     link    a6,#0          ; routine preamble
  20.  
  21.     dc.w    $A000          ; get the important pointers (line A init)
  22.  
  23.     movea.l    4(a1),a1      ; a1 -> 8x8 font header
  24.  
  25.     move.l  72(a1),-$0A(a0)   ; v_off_ad <- 8x8 offset table addr
  26.     move.l  76(a1),-$16(a0)   ; v_fnt_ad <- 8x8 font data addr
  27.  
  28.     move    #8,-$2E(a0)      ; v_cel_ht <- 8    8x8 cell height
  29.     move    #49,-$2A(a0)      ; v_cel_my <- 49   maximum cell "Y"
  30.     move    #640,-$28(a0)     ; v_cel_wr <- 640  offset to cell Y+1
  31.  
  32.     unlk    a6          ; routine postable
  33.     rts              ; and return
  34.  
  35.    
  36. ;
  37. ; Make hi rez screen bios handle 25 lines of 8x16 characters
  38. ;
  39.  
  40.     public _hi25
  41.  
  42. _hi25:                  ; Switch to 25 lines display
  43.     link    a6,#0          ; routine preamble
  44.  
  45.     dc.w    $A000          ; get the important pointers
  46.     
  47.     movea.l    8(a1),a1      ; a1 -> 8x16 font header
  48.  
  49.     move.l  72(a1),-$0A(a0)   ; v_off_ad <- 8x16 offset table addr
  50.     move.l  76(a1),-$16(a0)   ; v_fnt_ad <- 8x16 font data addr
  51.  
  52.     move    #16,-$2E(a0)      ; v_cel_ht <- 16    8x16 cell height
  53.     move    #24,-$2A(a0)      ; v_cel_my <- 24    maximum cell "Y"
  54.     move    #1280,-$28(a0)      ;  v_cel_wr <- 1280  vertical byte offset
  55.  
  56.     unlk    a6          ; routine postamble
  57.     rts              ; bye
  58.  
  59.  
  60. ; return the base address of the line A variables 
  61.  
  62.     public _aaddress
  63.  
  64. _aaddress:
  65.     link    a6,#0
  66.     dc.w $A000        ; Line A trap - 0000 is init aline
  67.                 ; d0 and a0 now contain the address
  68.                 ; so we can just return and the result
  69.                 ; will be valid
  70.     unlk    a6
  71.     rts
  72.  
  73.     end
  74.